EOLN function

  DECLARATION:  EOLN [ (var F : Text) ]

      PURPOSE:  Returns the end of line status of a text file.

         UNIT:  System

  RESULT TYPE:  Boolean

      EXAMPLE:  Var
                F  : Text;
                Ch : Char;

                Begin
                   Assign(F,'TEST_EOF.PAS');
                   {$I-}
                   Reset(F);
                   {$I+}
                   If IOResult <> 0 Then
                   Begin
                      Writeln('File not found');
                      Halt;
                   End;
                   While not EOLN(F) Do
                   Begin
                      Read(F,Ch);
                      Write(Ch);
                   End;
                   Close(F);
                End.